Option Explicit
Sub H_Sample004()
    'ϥΦbH_Sample003ƦCXӪϪ
    Dim mySht As Worksheet
    Dim myErr As Long
    Dim i     As Long
    Dim j     As Long
    Set mySht = ThisWorkbook.Worksheets(1)              'Ϫ
    j = 1
    'ܧChartType
    For i = 1 To mySht.ChartObjects.Count
        With mySht.ChartObjects(i).Chart                      'NϪt
            Do
                On Error Resume Next
                .ChartType = j
                myErr = Err.Number
                On Error GoTo 0
                If myErr = 0 Then
                    j = j + 1
                    Exit Do
                Else
                    j = j + 1
                End If
            Loop Until j > 300
        End With
    Next
    Set mySht = Nothing                                    '
End Sub
